home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
SHARED.DIR
/
01951_Script_Viking Globals Buttons
< prev
next >
Wrap
Text File
|
1995-09-13
|
9KB
|
290 lines
Global gBtn1, gBtn2, gBtn3, gBtn4, gBtn5, gBtn6, gBtn7, gBtn8, gBtn9, gBtn16, gBtn17, gQuest, gSlider,gTheHelpIsOn
on VInitBYLDemo
set gBtn4 = birth(script "aTheatreButton", 32, 140, "SV141000.AIF", "VBegin", "HandCursor")
end
on VInitGlobals
set ScriptNumber = the number of cast "a3StateButton"
set gBtn1 = birth(script "aPullDown", 29, 125, 127, "SV140800.AIF", "VGlossary", "VIndex", "HandCursor")
set gBtn2 = birth(script ScriptNumber, 30, 134, "SV141700.AIF", "DoNothing", "HandCursor")
set gBtn3 = birth(script ScriptNumber, 31, 137, "SV141600.AIF", "DoNothing", "HandCursor")
set gBtn4 = birth(script ScriptNumber, 32, 140, "SV141000.AIF", "VBegin", "HandCursor")
set gBtn5 = birth(script ScriptNumber, 33, 143, "SV141100.AIF", "TableCross", "HandCursor")
set gBtn6 = birth(script 1983, 34, 146, 79, "VMap", "VTime", "VBasicFacts",¼
"HowDoWeKnowCross", "HandCursor", "SV141200.AIF", "")
set gBtn7 = birth(script ScriptNumber, 35, 153, "SV141300.AIF", "VGame", "HandCursor")
set gBtn8 = birth(script ScriptNumber, 36, 156, "SV010252.AIF", "HelpToggle", "HandCursor")
set gBtn9 = birth(script ScriptNumber, 37, 159, "SV141500.AIF", "Quitit", "HandCursor")
set gQuest = birth(script "aRandomQuestion", 44, 45, 148, 339, 173, 1501, 2, "","", "", "", 3, "SV143000.AIF")
SwitchList (gQuest, 3)
end
on GlobalSetUpFromTheatre
set ScriptNumber = the number of cast "a3StateButton"
set gBtn1 = birth(script "aPullDown", 29, 125, 127, "SV140800.AIF", "VGlossary", "VIndex", "HandCursor")
set gBtn2 = birth(script ScriptNumber, 30, 134, "SV141700.AIF", "DoNothing", "HandCursor")
set gBtn3 = birth(script ScriptNumber, 31, 137, "SV141600.AIF", "DoNothing", "HandCursor")
set gBtn4 = birth(script ScriptNumber, 32, 140, "SV141000.AIF", "VBegin", "HandCursor")
set gBtn5 = birth(script ScriptNumber, 33, 143, "SV141100.AIF", "TableCross", "HandCursor")
set gBtn6 = birth(script 1983, 34, 146, 79, "VMap", "VTime", "VBasicFacts",¼
"HowDoWeKnowCross", "HandCursor", "SV141200.AIF", "")
set gBtn7 = birth(script ScriptNumber, 35, 153, "SV141300.AIF", "VGame", "HandCursor")
set gBtn8 = birth(script ScriptNumber, 36, 156, "SV010252.AIF", "HelpToggle", "HandCursor")
set gBtn9 = birth(script ScriptNumber, 37, 159, "SV141500.AIF", "Quitit", "HandCursor")
SwitchList (gQuest, 3)
end
on VGlobalsSetUp
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "Table")
setNewFunctions (gBtn6, "VMap", "VTime", "VBasicFacts", "HowDoWeKnow")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpGlossary
setNewFunctions (gBtn1, "DoNothing", "VIndex")
setNewFunction (gBtn2, "VBegin")
setNewFunction (gBtn3, "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMap", "VTime", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpIndex
setNewFunctions (gBtn1, "VGlossary", "DoNothing")
setNewFunction (gBtn2, "VGlossary")
setNewFunction (gBtn3, "VBegin")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMap", "VTime", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpPan
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "DoNothing")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMap", "VTime", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpMap
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "ResetVMaps", "VTime", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpTime
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMAP", "DoNothing", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpBF
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMap", "VTime", "DoNothing", "HowDoWeKnowCross")
setNewFunction (gBtn7, "VGame")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalsSetUpGame
setNewFunctions (gBtn1, "VGlossary", "VIndex")
setNewFunction (gBtn4, "VBegin")
setNewFunction (gBtn5, "TableCross")
setNewFunctions (gBtn6, "VMap", "VTime", "VBasicFacts", "HowDoWeKnowCross")
setNewFunction (gBtn7, "DoNothing")
setNewFunction (gBtn8, "HelpToggle")
SwitchList (gQuest, 3)
end
on VGlobalRollover
RolloverJob(gQuest)
if (the MouseV < 250) then
if hilightPullDown (gBtn1) then
return true
else
if ObjectP(gBtn16) then
if hilight (gBtn16) then
return true
else
if ObjectP(gBtn17) then
if hilight (gBtn17) then
return true
end if
end if
end if
end if
end if
else
if rollover(38) then
if gTheHelpIsOn = 1 then
puppetsound "SV142100.AIF"
updatestage
repeat while rollover(38)
nothing
end repeat
end if
else
if hilight (gBtn2) then
return true
else
if hilight (gBtn3) then
return true
else
if hilight (gBtn4) then
return true
else
if hilight (gBtn5) then
return true
else
if hilight (gBtn6) then
return true
else
if hilight (gBtn7) then
return true
else
if hilight (gBtn8) then
return true
else
if hilight (gBtn9) then
return true
else
return false
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end
on VGlobalRollover2
RolloverJob(gQuest)
if (the MouseV < 250) then
if hilightPullDown (gBtn1) then
return true
else
if ObjectP(gBtn16) then
if hilight (gBtn16) then
return true
else
if ObjectP(gBtn17) then
if hilight (gBtn17) then
return true
end if
end if
end if
end if
end if
else
if rollover(38) then
if gTheHelpIsOn = 1 then
puppetsound "SV142100.AIF"
updatestage
repeat while rollover(38)
nothing
end repeat
end if
else
if donthilight (gBtn2) then
return true
else
if donthilight (gBtn3) then
return true
else
if hilight (gBtn4) then
return true
else
if hilight (gBtn5) then
return true
else
if hilight (gBtn6) then
return true
else
if hilight (gBtn7) then
return true
else
if hilight (gBtn8) then
return true
else
if hilight (gBtn9) then
return true
else
return false
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end
on TurnOffPuppetTemp
hideControl (gBtn1)
hideControl (gBtn2)
hideControl (gBtn3)
hideControl (gBtn4)
hideControl (gBtn5)
hideControl (gBtn6)
hideControl (gBtn7)
hideControl (gBtn8)
hideControl (gBtn9)
end
on TurnOnPuppetTemp
showControl (gBtn1)
showControl (gBtn2)
showControl (gBtn3)
showControl (gBtn4)
showControl (gBtn5)
showControl (gBtn6)
showControl (gBtn7)
showControl (gBtn8)
showControl (gBtn9)
end
on InitSoundsV
setnewsound (gBtn1, "SV140800.AIF")
setnewsound (gBtn2, "SV141700.AIF")
setnewsound (gBtn3, "SV141600.AIF")
setnewsound (gBtn4, "SV141000.AIF")
setnewsound (gBtn5, "SV141100.AIF")
setnewsound (gBtn6, "SV141200.AIF")
setnewsound (gBtn7, "SV141300.AIF")
setnewsound (gBtn8, "SV010252.AIF")
setnewsound (gBtn9, "SV141500.AIF")
setnewsound (gQuest, "SV143000.AIF")
end